home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 01.d (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  358b  |  21 lines
  1. 10000 rem fruechte-datei deffinieren -------------------------------------------
  2. 10010 sz=13     :rem anzahl der saetze
  3. 10020 dim d$(sz):rem string-feld
  4. 10030 for i=1 to sz
  5. 10040 : read d$(i)
  6. 10050 nexti
  7. 10100 data banane
  8. 10105 data orange
  9. 10110 data traube
  10. 10115 data apfel
  11. 10120 data birne
  12. 10125 data coca cola
  13. 10130 data erdbeere
  14. 10135 data mandarine
  15. 10140 data
  16. 10145 data himbeere
  17. 10150 data pflaume
  18. 10155 data birne
  19. 10160 data brombeere
  20. 10190 return
  21.